﻿' Fhame Rashid 09209531
' MSc Software Engineering
' WSCC, Week 2, October 4th 2012
' f.rashid@outlook.com

Public Class CurrencyCalculator
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btn_convert_Click(sender As Object, e As EventArgs) Handles btn_convert.Click

        ' Input/ Output variable Declare
        Dim P As Single
        Dim D As Single

        ' Unit Conversion
        P = CSng(tb_pound.Text)
        D = P * 1.5

        'Result Output
        lbl_pound.Text = P
        lbl_dollar.Text = D

    End Sub
End Class